home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls088.hpux.Z / tls088.hpux / lib / vtcl / tests / input.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  526 b   |  29 lines
  1. # CVS $Id: input.tcl,v 1.3 1995/02/03 16:54:52 zibi Exp $
  2. #
  3. # This test that wstcl will work with even connecting to 
  4. # wserver.
  5. #
  6. # To test type the following
  7. #    cat /etc/termcap | wstcl input.tcl
  8. # You should see the file scrolling on the screen
  9. # 
  10. proc echoCB {id} {
  11.      set count [gets $id line]
  12.  
  13.      if { $count == -1 } {
  14.     echo "\n\nPASSED input.tcl"
  15.     exit 0
  16.      }
  17.      
  18.      puts stdout "." nonewline
  19.  
  20.      VtRemoveInput $id
  21.      VtAddInput $id echoCB
  22. }
  23.  
  24. set f [open /etc/termcap]
  25.  
  26. VtAddInput $f echoCB
  27.  
  28. VtMainLoop
  29.